Monster Media 1996 #14/Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO/prog_d/qrep097a.zip/MDREP.DFM/MDREP.txt

Text File | 1996-01-13 | 16KB | 743 lines

object MDForm: TMDForm
  Left = 307
  Top = 376
  Width = 818
  Height = 437
  HorzScrollBar.Range = 1200
  VertScrollBar.Range = 2000
  AutoScroll = False
  Caption = 'Master Detail demo Report'
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 96
  ShowHint = True
  TextHeight = 16
  object Title: TQRBand
    Left = 0
    Top = 0
    Width = 1200
    Height = 47
    Align = alTop
    BandType = rbTitle
    Color = clWhite
    Font.Color = clNavy
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = []
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrInchesHV
    object QRLabel15: TQRLabel
      Left = 96
      Top = 5
      width = 216
      height = 41
      Caption = 'QuickReport'
      AlignToBand = False
      Font.Color = 8404992
      Font.Height = -36
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
    object Image1: TImage
      Left = 9
      Top = 5
      Width = 79
      Height = 37
      Picture.Data = {<image000.bmp>}
      Stretch = True
    end
    object QRLabel1: TQRLabel
      Left = 329
      Top = 23
      width = 69
      height = 17
      Caption = 'for Delphi'
      AlignToBand = False
      Font.Color = 8404992
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
    object QRLabel16: TQRLabel
      Left = 441
      Top = 23
      width = 291
      height = 17
      Caption = 'Copyright (c) 1996 Allan Lochert / QSD as'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
  end
  object CustomerHeading: TQRBand
    Left = 0
    Top = 47
    Width = 1200
    Height = 41
    Align = alTop
    BandType = rbDetail
    Color = 8404992
    ForceNewPage = True
    Frame.Width = 0
    Ruler = qrrNone
    object QRDBText1: TQRDBText
      Left = 9
      Top = 14
      width = 257
      height = 19
      DataSource = CustomerDS
      DataField = 'Company'
      Font.Color = clWhite
      Font.Height = -19
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
    object QRLabel3: TQRLabel
      Left = 9
      Top = 0
      width = 55
      height = 15
      Caption = 'Customer'
      AlignToBand = False
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRLabel4: TQRLabel
      Left = 273
      Top = 0
      width = 36
      height = 15
      Alignment = taRightJustify
      Caption = 'Phone'
      AlignToBand = False
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRDBText3: TQRDBText
      Left = 274
      Top = 14
      width = 139
      height = 19
      DataSource = CustomerDS
      DataField = 'Phone'
      Font.Color = clWhite
      Font.Height = -19
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
    object QRDBText4: TQRDBText
      Left = 73
      Top = 0
      width = 29
      height = 15
      Alignment = taRightJustify
      DataSource = CustomerDS
      DataField = 'CustNo'
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRLabel5: TQRLabel
      Left = 416
      Top = 0
      width = 19
      height = 15
      Caption = 'Fax'
      AlignToBand = False
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRDBText5: TQRDBText
      Left = 416
      Top = 14
      width = 134
      height = 19
      DataSource = CustomerDS
      DataField = 'Fax'
      Font.Color = clWhite
      Font.Height = -19
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
  end
  object CustomerFooter: TQRBand
    Left = 0
    Top = 161
    Width = 1200
    Height = 22
    Align = alTop
    BandType = rbGroupFooter
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRDBCalc1: TQRDBCalc
      Left = 524
      Top = 1
      width = 93
      height = 19
      Alignment = taRightJustify
      DataSource = OrderDS
      DataField = 'AmountPaid'
      Operation = qrcSUM
      PrintMask = '#,##0.00'
      ResetBand = CustomerFooter
    end
    object QRLabel7: TQRLabel
      Left = 353
      Top = 1
      width = 154
      height = 16
      Caption = 'Total sales this customer: '
      AlignToBand = False
    end
    object QRDBCalc3: TQRDBCalc
      Left = 208
      Top = 4
      width = 65
      height = 17
      Alignment = taRightJustify
      DataSource = OrderDS
      DataField = 'CustNo'
      Operation = qrcCOUNT
      ResetBand = CustomerFooter
    end
  end
  object PageFooter: TQRBand
    Left = 0
    Top = 230
    Width = 1200
    Height = 22
    Align = alTop
    BandType = rbPageFooter
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRLabel8: TQRLabel
      Left = 5
      Top = 5
      width = 238
      height = 15
      Caption = 'QuickReport is copyright 1995 Allan Lochert'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRSysData1: TQRSysData
      Left = 667
      Top = 0
      width = 91
      height = 18
      Alignment = taRightJustify
      AlignToBand = True
      AutoSize = False
      Data = qrsPageNumber
      Text = 'Page '
    end
  end
  object Summary: TQRBand
    Left = 0
    Top = 183
    Width = 1200
    Height = 47
    Hint = 'QuickReport'
    Align = alTop
    BandType = rbSummary
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRSysData2: TQRSysData
      Left = 522
      Top = 14
      width = 225
      height = 18
      AlignToBand = False
      AutoSize = False
      Data = qrsDetailCount
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Text = 'Total number of orders : '
    end
    object QRDBCalc2: TQRDBCalc
      Left = 366
      Top = 14
      width = 120
      height = 19
      Alignment = taRightJustify
      DataSource = OrderDS
      DataField = 'AmountPaid'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Operation = qrcSUM
      PrintMask = ',0.00'
    end
    object QRLabel6: TQRLabel
      Left = 123
      Top = 14
      width = 183
      height = 18
      Caption = 'Total sales all customers :'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
    end
  end
  object OrderDetail: TQRBand
    Left = 0
    Top = 88
    Width = 1200
    Height = 33
    Align = alTop
    BandType = rbSubDetail
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRDBText2: TQRDBText
      Left = 69
      Top = 0
      width = 51
      height = 19
      Alignment = taRightJustify
      DataSource = OrderDS
      DataField = 'OrderNo'
    end
    object QRDBText7: TQRDBText
      Left = 192
      Top = 0
      width = 74
      height = 19
      DataSource = OrderDS
      DataField = 'SaleDate'
    end
    object QRLabel2: TQRLabel
      Left = 9
      Top = 0
      width = 64
      height = 18
      Caption = 'Order no'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
    end
    object QRLabel9: TQRLabel
      Left = 137
      Top = 0
      width = 33
      height = 18
      Caption = 'Date'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
    end
    object QRLabel10: TQRLabel
      Left = 72
      Top = 16
      width = 31
      height = 14
      Caption = 'Partno'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRLabel11: TQRLabel
      Left = 128
      Top = 16
      width = 54
      height = 14
      Caption = 'Description'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRLabel12: TQRLabel
      Left = 428
      Top = 16
      width = 24
      height = 14
      Caption = 'Price'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRLabel13: TQRLabel
      Left = 488
      Top = 16
      width = 17
      height = 14
      Caption = 'Qty'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRLabel14: TQRLabel
      Left = 592
      Top = 16
      width = 23
      height = 14
      Caption = 'Total'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
    end
    object QRShape1: TQRShape
      Left = 184
      Top = 24
      width = 193
      Height = 1
      Shape = qrsHorLine
    end
    object QRShape2: TQRShape
      Left = 392
      Top = 24
      width = 33
      Height = 1
      Shape = qrsHorLine
    end
    object QRShape3: TQRShape
      Left = 468
      Top = 24
      width = 17
      Height = 1
      Shape = qrsHorLine
    end
    object QRShape4: TQRShape
      Left = 528
      Top = 24
      width = 61
      Height = 1
      Shape = qrsHorLine
    end
    object QRShape5: TQRShape
      Left = 53
      Top = 24
      width = 16
      Height = 1
      Shape = qrsHorLine
    end
  end
  object ItemsDetail: TQRBand
    Left = 0
    Top = 121
    Width = 1200
    Height = 19
    AfterPrint = ItemsDetailAfterPrint
    Align = alTop
    BandType = rbSubDetail
    BeforePrint = ItemsDetailBeforePrint
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRDBText8: TQRDBText
      Left = 110
      Top = 24
      width = 239
      height = 19
      DataSource = PartsDS
      DataField = 'Description'
    end
    object QRDBText6: TQRDBText
      Left = 27
      Top = 0
      width = 75
      height = 19
      Alignment = taRightJustify
      DataSource = ItemsDS
      DataField = 'PartNo'
    end
    object QRDBText9: TQRDBText
      Left = 361
      Top = 0
      width = 92
      height = 19
      Alignment = taRightJustify
      DataSource = PartsDS
      DataField = 'ListPrice'
    end
    object QRDBText10: TQRDBText
      Left = 457
      Top = 0
      width = 47
      height = 19
      Alignment = taRightJustify
      DataSource = ItemsDS
      DataField = 'Qty'
    end
    object QRDBText11: TQRDBText
      Left = 528
      Top = 0
      width = 89
      height = 17
      Alignment = taRightJustify
      DataSource = ItemsDS
      DataField = 'TotalAmount'
    end
    object QRDBText12: TQRDBText
      Left = 128
      Top = 0
      width = 241
      height = 17
      DataSource = PartsDS
      DataField = 'Description'
    end
  end
  object OrderFooter: TQRBand
    Left = 0
    Top = 140
    Width = 1200
    Height = 21
    Align = alTop
    BandType = rbGroupFooter
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRLabel17: TQRLabel
      Left = 380
      Top = 0
      width = 125
      height = 16
      Caption = 'Total sales this order:'
      AlignToBand = False
    end
    object QRShape6: TQRShape
      Left = 128
      Top = 8
      width = 249
      Height = 1
      Shape = qrsHorLine
    end
    object QRDBText13: TQRDBText
      Left = 524
      Top = 0
      width = 93
      height = 17
      Alignment = taRightJustify
      DataSource = OrderDS
      DataField = 'AmountPaid'
    end
  end
  object MDRep: TQuickReport
    DataSource = CustomerDS
    ColumnMarginInches = 0
    ColumnMarginMM = 0
    Columns = 1
    DisplayPrintDialog = False
    LeftMarginInches = 0
    LeftMarginMM = 0
    Orientation = poPortrait
    PrintOrder = qrColByCol
    ReportTitle = 'QuickReport Master/detail demonstration'
    RestartData = True
    SQLCompatible = False
    TitleBeforeHeader = False
    Left = 4
    Top = 224
  end
  object CustomerTable: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'Company'
    TableName = 'CUSTOMER.DB'
    Left = 36
    Top = 224
    object CustomerTableCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object CustomerTableCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object CustomerTablePhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object CustomerTableFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object CustomerTableContact: TStringField
      FieldName = 'Contact'
    end
  end
  object OrdersTable: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = CustomerDS
    TableName = 'ORDERS.DB'
    Left = 44
    Top = 260
    object OrdersTableOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object OrdersTableSaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object OrdersTableItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
      Currency = True
    end
    object OrdersTableTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object OrdersTableFreight: TCurrencyField
      FieldName = 'Freight'
      Currency = True
    end
    object OrdersTableAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
      Currency = True
    end
    object OrdersTableCustNo: TFloatField
      FieldName = 'CustNo'
      Required = True
    end
  end
  object CustomerDS: TDataSource
    DataSet = CustomerTable
    Left = 68
    Top = 224
  end
  object OrderDS: TDataSource
    DataSet = OrdersTable
    Left = 76
    Top = 260
  end
  object QRDetailLink1: TQRDetailLink
    DataSource = OrderDS
    DetailBand = OrderDetail
    FooterBand = CustomerFooter
    Master = MDRep
    PrintBefore = False
    Left = 12
    Top = 260
  end
  object QRDetailLink2: TQRDetailLink
    DataSource = ItemsDS
    DetailBand = ItemsDetail
    FooterBand = OrderFooter
    Master = QRDetailLink1
    PrintBefore = False
    Left = 24
    Top = 296
  end
  object ItemsTable: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'OrderNo'
    MasterFields = 'OrderNo'
    MasterSource = OrderDS
    TableName = 'ITEMS.DB'
    Left = 56
    Top = 296
    object ItemsTableOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object ItemsTableItemNo: TFloatField
      FieldName = 'ItemNo'
    end
    object ItemsTablePartNo: TFloatField
      FieldName = 'PartNo'
    end
    object ItemsTableQty: TIntegerField
      FieldName = 'Qty'
    end
    object ItemsTableDiscount: TFloatField
      FieldName = 'Discount'
    end
    object ItemsTableTotal: TCurrencyField
      Calculated = True
      FieldName = 'Total'
      Currency = True
    end
    object ItemsTableTotalAmount: TCurrencyField
      Calculated = True
      FieldName = 'TotalAmount'
      Currency = True
    end
  end
  object ItemsDS: TDataSource
    DataSet = ItemsTable
    Left = 88
    Top = 296
  end
  object PartsTable: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'PartNo'
    MasterFields = 'PartNo'
    MasterSource = ItemsDS
    TableName = 'PARTS.DB'
    Left = 64
    Top = 332
    object PartsTablePartNo: TFloatField
      FieldName = 'PartNo'
    end
    object PartsTableVendorNo: TFloatField
      FieldName = 'VendorNo'
    end
    object PartsTableDescription: TStringField
      FieldName = 'Description'
      Size = 30
    end
    object PartsTableOnHand: TFloatField
      FieldName = 'OnHand'
    end
    object PartsTableOnOrder: TFloatField
      FieldName = 'OnOrder'
    end
    object PartsTableCost: TCurrencyField
      FieldName = 'Cost'
      Currency = True
    end
    object PartsTableListPrice: TCurrencyField
      FieldName = 'ListPrice'
      Currency = True
    end
  end
  object PartsDS: TDataSource
    DataSet = PartsTable
    Left = 96
    Top = 332
  end
end